home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 206 / 206.d81 / ls demo 2001 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  123 lines
  1. 1 :
  2. 2 :rem loadstar 2001 demo
  3. 3 :rem by richard j. derocher
  4. 4 :
  5. 7 poke679,0
  6. 8 poke55,0:poke56,152:clr:printchr$(8)
  7. 9 print"[147]":poke53280,0:poke53281,0
  8. 10 :
  9. 20 :rem load files
  10. 30 :
  11. 50 dv=peek(186):ifdv<8thendv=8
  12. 55 sys57812"tricks.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  13. 60 sys57812"lsdemo.spr",dv,0:poke780,0:poke781,0:poke782,62:sys65493
  14. 70 sys57812"sinus ml",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  15. 80 sys57812"d.lsdemo",dv,0:poke780,0:poke781,6:poke782,64:sys65493
  16. 82 sys57812"qs driver 9800",dv,0:poke780,0:poke781,0:poke782,152:sys65493
  17. 84 sys57812"q.parting",dv,0:poke780,0:poke781,0:poke782,128:sys65493
  18. 87 sys57812"demo font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  19. 88 poke53272,29
  20. 89 gosub5000:rem credits
  21. 94 gosub1030:rem set up screen
  22. 99 :
  23. 100 :rem setup variables
  24. 110 :
  25. 120 vi=53248:pg=64:sa=pg*256:sp=248:dr=38912
  26. 130 pokevi+32,0:pokevi+33,0
  27. 140 :
  28. 150 :rem setup sinus interrupt
  29. 160 :
  30. 170 syssa
  31. 180 :
  32. 190 :rem poke sprite data
  33. 200 :
  34. 210 fori=0to7
  35. 220 poke2040+i,248+i:rem sprite pointers
  36. 230 pokevi+39+i,i+2:rem sprite colors
  37. 240 pokevi+37,14:pokevi+38,15
  38. 250 next
  39. 260 pokevi+29,0:rem x size
  40. 270 pokevi+23,0:rem y size
  41. 280 pokevi+28,255:rem multicolor on
  42. 290 pokevi+37,1:rem multicolor 1
  43. 300 pokevi+38,2:rem multicolor 2
  44. 310 pokevi+21,255:rem turn sprites on
  45. 320 :
  46. 330 :rem start music
  47. 340 :
  48. 350 sys dr+15:rem wedge on
  49. 360 sys dr+12:rem volume on
  50. 370 sys dr,128,1:rem start playing
  51. 380 pokedr+40,1:rem auto repeat on
  52. 440 gosub3210:rem kaleidoscope
  53. 1000 :
  54. 1010 :rem set up screen
  55. 1020 :
  56. 1030 print"[147]";
  57. 1040 printspc(12)"loadstar 2001 demo"
  58. 1041 poke214,23:print:
  59. 1042 printspc(12)"press key to exit";
  60. 1050 poke214,8:print:x=1:gosub2000
  61. 1060 poke214,8:print:x=34:gosub2000
  62. 1070 return
  63. 1997 :
  64. 1998 :rem print commodore logo
  65. 1999 :
  66. 2000 printspc(x)" cd"
  67. 2010 printspc(x)""chr$(34)"#$%&"
  68. 2020 printspc(x)"[194][195][196][197][198]"
  69. 2030 printspc(x)" [163][164]"
  70. 2040 return
  71. 2997 :
  72. 2998 :rem knees' kaleidoscope
  73. 2999 :
  74. 3210 m=1024+500:r=10:f=40:s=m+54272:z=.
  75. 3220 poke53371,0
  76. 3222 ifpeek(679)then3280
  77. 3224 poke679,1:dimd(14,5)
  78. 3230 fori=1to13:forj=1to4:readd(i,j):next:next
  79. 3240 data109,112,110,125,112,109,125,110,110,125,109,112,125,110,112,109
  80. 3250 data108,124,126,123,124,108,123,126,126,123,108,124,123,126,124,108
  81. 3260 data107,107,115,115,115,115,107,107,113,114,114,113,114,113,113,114
  82. 3270 data32,32,32,32
  83. 3280 rem
  84. 3290 x=int(rnd(0)*r):y=int(rnd(0)*r)*f
  85. 3300 c=rnd(0)*15+1:p=rnd(0)*24+1:ifp>12thenp=13
  86. 3310 pokem+x-y,d(p,1):pokes+x-y,c
  87. 3320 pokem+x+y,d(p,2):pokes+x+y,c
  88. 3330 pokem-x+y,d(p,3):pokes-x+y,c
  89. 3340 pokem-x-y,d(p,4):pokes-x-y,c
  90. 3345 z=z+1:ifz>325thenz=.:gosub4000
  91. 3350 ifpeek(198)=0then3290
  92. 3355 poke53269,0:print"[147]"
  93. 3360 sysdr+6:syssa+3
  94. 3365 new
  95. 3997 :
  96. 3998 :rem clear area
  97. 3999 :
  98. 4000 fori=1to22:poke214,i:print
  99. 4010 printspc(8)"                         ":next:return
  100. 4997 :
  101. 4998 :rem credits
  102. 4999 :
  103. 5000 print"[147]";:m$="loadstar 2001 demo":gosub15000
  104. 5010 m$="by richard j. derocher":gosub15000
  105. 5020 print"";:m$="this demo was written in basic":gosub15000
  106. 5030 m$="and uses the following ml routines:":gosub15000
  107. 5040 print"";:m$="johnny's tricks by johnny harris":gosub15000
  108. 5050 print"";:m$="sinus by steve emsley":gosub15000
  109. 5060 print"";:m$="quicksmith player by lee novak":gosub15000
  110. 5070 print"";:m$="and a basic routine:":gosub15000
  111. 5080 print"";:m$="knees' kaleidoscope by knees calhoon":gosub15000
  112. 5090 print"";:m$="press any key to start the demo!":gosub15000
  113. 5095 sys49811,2,.:
  114. 5100 geta$:ifa$=""then5095
  115. 5103 sys49203,150
  116. 5105 return
  117. 9999 end
  118. 10000 d=peek(186):n$="ls demo 2001":open15,d,15,"s0:"+n$:close15:saven$,d:end
  119. 14997 :
  120. 14998 :rem center string
  121. 14999 :
  122. 15000 printtab((40-len(m$))/2)m$:return
  123.